cls
print "DISPLAY MODES"
print
perform checklist for display modes
for c=1 to checklist quantity()
width=checklist value a(c)
height=checklist value b(c)
depth=checklist value c(c)
print "found:";checklist string$(c)
next c
empty checklist
set display mode width, height, depth
if check display mode(width, height, depth)=1
print "using:";width;" ";height;" ";depth
endif
do
loop
end